00100	COMMENT PSEUDO-SAIL PROGRAM TO COMPUTE JUSTIFICATION INTERSPACING ;
00200	
00300	...
00400	
00500	INTEGER WD, WDS, SHORT, TERMA, TERMB ;
00600	COMMENT THE LINE TO BE JUSTIFIED HAS "WDS" WORDS WHICH
00700	    FALL "SHORT" CHARACTERS SHORT OF THE RIGHT MARGIN ;
00800	REAL RATIO ;
00900	
01000	...
01100	
01200	RATIO ← SHORT/(WDS-1) ; COMMENT AVERAGE EXTRA SPACING ;
01300	TERMB ← RATIO + .0001 ;
01400	
01500	FOR WD ← 2 STEP 1 UNTIL WDS DO
01600	BEGIN
01700	COMMENT COMPUTE EXTRA SPACES BEFORE WORD NO. "WD" ;
01800	TERMA ← RATIO * WD  +  .0001 ;
01900	EXTRASPACES ← TERMA - TERMB ;
02000	TERMB ← TERMA ;
02100	
02200	...
02300	
02400	END ;
02500	
02600	...